﻿Public Class frmMResultado
    Public arrConsulta(4) As String
    Private arrCampos() As String = {"resultado_id", "resultado_fecha", "resultado_hora", "resultado_texto"}

    Private Sub frmResultado_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        refreshList()
        frmResultado.frmParent = Me
    End Sub

    Public Sub refreshList()
        Dim dstRecord As New DataSet
        Dim strCondicion As String = ""
        dstRecord.Tables.Add("resultado")

        For i As Integer = 0 To 2
            If (Me.arrConsulta(i) <> "") Then
                strCondicion &= If(strCondicion <> "", " AND ", "") & If(i = 2, Me.arrCampos(i) & " = '" & LCase(Me.arrConsulta(i)) & "'", "LOWER(" & Me.arrCampos(i) & "::text) LIKE '%" & LCase(Me.arrConsulta(i)) & "%'")
            End If
        Next

        mdlCRUD.loadRecord(dstRecord, "resultado", "resultado", strCondicion, Nothing)

        Me.dgvResultado.DataSource = dstRecord.Tables("resultado")
        Me.dgvResultado.Columns(0).HeaderText = "Codigo"
        Me.dgvResultado.Columns(1).HeaderText = "fecha"
        Me.dgvResultado.Columns(2).HeaderText = "hora"
        Me.dgvResultado.Columns(3).HeaderText = "text"
        'Me.dgvTipoelemento.Columns(3).HeaderText = "tipoelemento"
        Me.dgvResultado.Columns(0).Width = 60
        Me.dgvResultado.Columns(1).Width = 160
        Me.dgvResultado.Columns(2).Width = 160
        Me.dgvResultado.Columns(3).Width = 160
    End Sub

    Private Sub tsbEditar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles tsbEditar.Click
        Dim strId As String = Me.dgvResultado.Rows(Me.dgvResultado.CurrentRow.Index).Cells(0).Value.ToString()

        If (strId <> "") Then
            frmResultado.modeForm = 2
            frmResultado.Text = "Editar Resultado"
            frmResultado.ShowDialog()
        Else
            MsgBox("Debe seleccionar un registro", MsgBoxStyle.Information, "Resultados")
        End If
    End Sub
    Private Sub tsbRefresh_Click(ByVal sender As Object, ByVal e As EventArgs) Handles tsbRefresh.Click
        arrConsulta(0) = ""
        arrConsulta(1) = ""
        arrConsulta(2) = ""
        Me.refreshList()

    End Sub

    Private Sub tsbConsultar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles tsbConsultar.Click
        frmResultado.modeForm = 1
        frmResultado.Text = "Consultar Roles"
        frmResultado.ShowDialog()
    End Sub
End Class